home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / slither duel.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  109 lines
  1. 0 REM ORIGINAL TITLE 'SNAKE'
  2. 1 REM ORIGINAL PET VERSION BY PETE ROWE
  3. 2 REM ADAPTED FOR THE VIC BY DAVID      MALMBERG
  4. 3 REM**REVISED, UPDATED AND ADAPTED TO  THE COMMODORE 64 BY ROGER D BURGE #2667,
  5. 4 REM**TORONTO PET USERS GROUP, CANADA
  6. 99 DIMCH(80):CH(.)=30:CH(80)=22:CH(39)=60:CH(41)=62
  7. 100 G=1:DE=2:GOSUB4000
  8. 101 T9=39:F0=40:BS=32:SX=6:E1=81:F1=41:TW=20
  9. 102 GOSUB2100
  10. 550 PRINT"[142]":POKE53281,G:PRINT"[147]":POKE53281,.:POKE53280,.
  11. 551 FORJ=SC+F0*DETOSC+119:POKEJ,160:POKEJ+880,160:POKEJ+M,10:POKEJ+880+M,10:NEXT
  12. 560 FORJ=SC+120TOSC+920STEPF0:POKEJ,160:POKEJ+T9,160:POKEJ+M,10:POKEJ+T9+M,10:NEXT
  13. 561 PRINT"[156]PLAYER 1      SLITHER DUEL      [156]PLAYER 2";
  14. 562 PRINT"                                        "
  15. 563 IFN=.ORN=GTHENPRINT" [156]YOUR 64"
  16. 564 IFN=.THENPRINT"[156]YOUR 64[215]
  17. 565 [153]"CLR"[201]([196](S(.)),[195]([196](S(.)))[171]G)
  18. 566 [153]"CLR";[166]T9[171][195]([201]([196](S(G)),[195]([196](S(G)))[171]G)));[196](S(G))
  19. 600 Q[178]20:QD[178].3
  20. 610 [129]I[178].[164]G:D(I)[178]G[170]T9[172][181](2[172][187](.))
  21. 620 L(I)[178]F0[172][181](15[172][187](.))[170][181](BS[172][187](.)[170]4)[170]SC[170]200:[130]
  22. 621 [139]D(.)[178]F0[167][151]781,F0:[151]782,.:[137]623
  23. 622 [151]781,G:[151]782,.
  24. 623 [139]D(1)[178]F0[167][151]253,F0:[151]254,.:[137]625
  25. 624 [151]253,G:[151]254,.
  26. 625 [129]U[178]L(.)[171]120[164]L(.)[170]120[169]F0:[139]L(G)[178]U[167]610
  27. 626 [130]U
  28. 627 [129]U[178]L(.)[171]3[164]L(.)[170]3:[139]L(G)[178]U[167]610
  29. 628 [130]U
  30. 630 T[178]TI:Q[178]Q[171]QD:[129]I[178].[164]G:F[178]G:[158]M(I):D(I)[178][194](Z(I))[171][194](X(I))
  31. 700 [139]N[178]DE[167]720
  32. 710 [139]I[172]N[178].[175][194](L(I)[170]DE[172]D(I))[179][177]BS[167]740
  33. 720 F[178]DE:[139][194](L(I)[170]D(I))[178]BS[167]840
  34. 730 [139]I[170]N[177]G[167]920
  35. 740 A[178]F1[171][182](D(I)):[129]J[178]A[164]TW[172]A[169]A
  36. 750 [129]K[178][171]G[164]G[169]DE
  37. 760 [139][194](L(I)[170]K[172]J)[179][177]BS[167]780
  38. 770 [130]K:[130]:K[178]G
  39. 780 [139]K[178]G[167]820
  40. 790 [139][194](L(I)[170]J)[178]BS[167]830
  41. 800 [139]J[178]A[167][145]F[137]720,920
  42. 810 [139][187](.)[177].5[167]830
  43. 820 A[178][171]A
  44. 830 D(I)[178]A
  45. 840 [151]L(I),E1[170]SX[172]I:L(I)[178]L(I)[170]D(I)
  46. 860 [151]L(I),CH(D(I)[170]F0)
  47. 890 [130]I
  48. 900 [139]TI[171]T[179]Q[167]900
  49. 910 [137]630
  50. 920 S(I)[178]S(I)[170]G:QD[178]QD[170].1:WI[178]I:[139]N[178]DE[167]940
  51. 940 [151]L(I),214:[151]L(I)[170]M,13
  52. 950 [141]3000
  53. 990 [139]WI[167][153]S1$;[166]T9[171][195]([201]([196](S(G)),[195]([196](S(G)))[171]G)));[196](S(G))
  54. 1010 [139]WI[178].[167][153]S0$;[201]([196](S(.)),[195]([196](S(.)))[171]G):T[178]TI
  55. 1030 [153]"LIST OPTIONS: "
  56. 1031 [153]"LIST F1=REPLAY     F3=RESTART       F5=QUIT "
  57. 1032 [141]1060:[139]A$[178]"INPUT"[167]550
  58. 1033 [139]A$[178]"DIM"[167][151]53281,1:[151]53280,1:[153]"LOAD":[141]2310:S(.)[178].:S(1)[178].:[137]550
  59. 1034 [139]A$[178]"READ"[167][153]"LOAD":[128]
  60. 1035 [137]1032
  61. 1060 [151]198,.
  62. 1061 [161]A$:[139]A$[178]""[167]1061
  63. 1070 [142]
  64. 2100 SC[178]256[172][194](648):M[178]55296[171]SC:[151]53281,G:[151]53280,G
  65. 2130 [153]"LOADRETURN         WELCOME TO THE GAME OF         "
  66. 2150 [153]"              SLITHER DUEL              "
  67. 2160 [153]"WANT INSTRUCTIONS? ";
  68. 2170 [141]1060:[139]A$[178]"N"[167][153]"ONONONONON":[137]2310
  69. 2180 [139]A$[179][177]"Y"[167]2170
  70. 2181 [153]"LOAD              SLITHER DUEL              "
  71. 2190 [153]"  THIS IS A GAME FOR 1 OR 2 PLAYERS.
  72. 2210 PRINT"  [212]HE OBJECT IS TO NOT RUN INTO ANY     OCCUPIED SPACE OR WALL.  ";
  73. 2240 PRINT"THE PLAYER WHO DOES SO FIRST LOSES."
  74. 2300 PRINT"[144]TO CONTROL YOUR SNAKE:"
  75. 2310 PRINT"PLAYER 1 USES JOYSTICK #1. [144]<[215][215][215][215][215][215][215][215][215][215]
  76. 2320 [153]"PLAYER 2 USES JOYSTICK #2. STOP<(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  77. 2420 PRINT"SELECT":PRINT "[144]0, 1 OR 2 PLAYERS?"
  78. 2421 PRINT"IF YOU SELECT 0 THEN YOUR 64 WILL PLAY  ITSELF. (DEMO)
  79. 2450 [153]"IF YOU SELECT 1 THEN YOU ARE PLAYER 1,  YOUR 64 IS PLAYER 2.
  80. 2451 PRINT" ENTER SELECTION! 
  81. 2460 [141]1060:N[178][197](A$):[139]A$[179]"0"[176]A$[177]"2"[167]2460
  82. 2470 [139]N[172](N[171]G)[172](N[171]DE)[179][177].[167]2460
  83. 2480 R[178].:S(.)[178].:S(G)[178].:S0$[178]"SYSPLAYER 1CMDCMDCMDCMDCMDCMDCMDCMD"
  84. 2490 S1$[178]"SYSYOUR  64"
  85. 2500 [139]N[178].[167]S0$[178]"SYSYOUR 64(null)CMDCMDCMDCMDCMDCMDCMDCMD"
  86. 2510 [139]N[178]DE[167]S1$[178]"SYSPLAYER 2"
  87. 2540 [142]
  88. 3000 [151]SV[170]5,53:[151]SV[170]SX,69:[151]SV[170]4,33:[151]SV[170]1,5:[151]SV,71
  89. 3001 [129]F[178]G[164]700:[130]:[151]SV[170]G,.:[151]SV,.:[151]SV[170]5,53
  90. 3010 [151]SV[170]6,69:[151]SV[170]4,33:[151]SV[170]G,3:[151]SV,244
  91. 3015 [129]F[178]G[164]700:[130]:[151]SV[170]4,.:[151]SV[170]G,.:[151]SV,.:[151]SV[170]5,53
  92. 3020 [151]SV[170]6,69:[151]SV[170]4,33:[151]SV[170]G,DE:[151]SV,163:[129]F[178]G[164]900
  93. 3030 [130]:[151]SV[170]4,.:[151]SV[170]G,.:[151]SV  ,.:[142]
  94. 4000 [129]T[178]828[164]878:[135]A:[151]T,A:[130]:M(.)[178]828:Z(.)[178]251:X(.)[178]252
  95. 4005 [129]T[178]879[164]935:[135]A:[151]T,A:[130]:M(1)[178]879:Z(1)[178]253:X(1)[178]254
  96. 4080 [131]173,.,220,41,15
  97. 4081 [131]201,7,208,7,162,2,160,1,76,106,3
  98. 4082 [131]201,13,208,7,162,80,160,40,76,106,3
  99. 4083 [131]201,11,208,7,162,.,160,1,76,106,3
  100. 4084 [131]201,14,208,4,162,.,160,40
  101. 4085 [131]134,251,132,252,96
  102. 4090 [131]173,1,220,41,15
  103. 4091 [131]201,7,208,9,169,1,133,253,169,.,133,254,96
  104. 4092 [131]201,13,208,9,169,40,133,253,169,.,133,254,96
  105. 4093 [131]201,11,208,9,169,.,133,253,169,1,133,254,96
  106. 4094 [131]201,14,208,8,169,.,133,253,169,40,133,254,96
  107. 5000 SV[178]54272:[129]T[178]SV[164]SV[170]24:[151]T,.:[130]
  108. 5010 [151]SV[170]24,15:[142]
  109.